concrete LexiconSyllEng of LexiconSyll =  LexiconEng **  open Prelude, StructuralEng, IrregEng, ParadigmsEng in { 
--# -path=.:prelude:english:common

lin

  broke_A = mkA "broke" ;
  fourlegged_A = mkA "four-legged" ;
  furious_A = mkA "furious" ;
  indispensable_A = mkA "indispensable" ;
  successful_A = mkA "successful" ;
  interesting_A = mkA "interesting" ;


  italian_A = mkA "italian" ;
  portuguese_A = mkA "portuguese" ;


  irishman_N = mkN "irishman" "irishmen";
  italian_N = mkN "italian" ;
  scandinavian_N = mkN "scandinavian" ;
 
  unicorn_N = mkN "unicorn";

-- names
  alan_PN = mkPN "Alan" ;
  anderson_PN = mkPN "Anderson" ;
  carl_PN = mkPN "Carl" ;
  dumbo_PN = mkPN "Dumbo" ;
  frank_PN = mkPN "Frank" ;
  helen_PN = mkPN "Helen" ;
  henrik_PN = mkPN "Henrik" ;
  jones_PN = mkPN "Jones" ;
  mickey_PN = mkPN "Mickey" ;
  nobel_PN = mkPN "Nobel" ;
  pavarotti_PN = mkPN "Pavarotti" ;
  peter_PN = mkPN "Peter" ;
  smith_PN = mkPN "Smith" ;
  katmandu_PN = mkPN "Katmandu" ;
  socrates_PN = mkPN "Socrates";

  berlin_PN = mkPN "Berlin" ;
  birmingham_PN = mkPN "Birmingham" ;
  florence_PN = mkPN "Florence" ;
  portugal_PN = mkPN "Portugal" ;
  scandinavia_PN = mkPN "Scandinavia" ;

  socrates_PN = mkPN "Socrates" ;
  unicorn_N = mkN "unicorn" ;
}
